Option Explicit
Sub E_Sample001()
   'ո  E_Data01u@
    Dim myRng As Range
    Set myRng = Cells.Find(what:="SUM", _
    After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False)	'wjM
    If myRng Is Nothing Then
        MsgBox "SŦXxs"
    Else
        MsgBox myRng.Address
    End If
    Set myRng = Nothing				'
End Sub
